*bug Subroutine scene called without label. Make sure to specify the subroutine to be called by label.
*label add_exhaustion
*params value original
*if (precognition_enabled)
	*return
*set mc_stamina +(value/ (1+(mc_end/100)))

*stat_chart
	percent round(mc_stamina) Exhaustion

*if mc_stamina >= 100
	*if (mc_trait_6) and (mc_trait_6_cost != 999)
		*set mc_stamina 50
		*set mc_trait_6_cost 999
		
		[b]Second Wind[/b] activated!
		*gosub reduce_health 10 "fight_innkeeper"
	*else
		*set mc_stamina 100
		*if original != ""
			*goto_scene {original} loss
		*else
			*return

*return


*label reduce_health
*params value original
*if (precognition_enabled)
	*return
*set mc_health -(value/ (1+(mc_con/100)))

*if (injuries_3)
	[b][/i]You are bleeding! Additional damage received.[/b][/i]
	
	*set mc_health -(10/ (1+(mc_con/100)))
	*set injuries_3_healing + (10*(1+(mc_vit/100)))
	*if injuries_3_healing >= 100
		[i]Your bleeding has stopped.[/i]
		*set injuries_3 false

*stat_chart
	percent round(mc_health) Health
	
*if mc_health <= 0
	*if (mc_equipped_robe = 1)
		*set mc_health 100
		*gosub disequip_item "con" 10
		*set inv_1 false
		*set mc_equipped_robe 0
		
		[b] Father's love [/b] activated!
	*else
		*set mc_health 0
		*if original != ""
			*goto_scene {original} loss
		*else
			*return
*return

*label give_exp
*params value atr
*if atr = ""
	*set mc_EXP +value
	
	[b]🡹 +${value} FREE EXP 🡹[/b]	
	
	*return
*else
	*temp modded_value value*(mc[atr]["mod"]*difficulty)
	*temp total (mc[atr] + modded_value)
	*if (total > 1600)
		*if mc[atr]["temp"] = 0
			*set total ((1600-total)*(1-2))
			*set mc[atr] 1600
			*set mc_exp + (total/(mc[atr]["mod"]*difficulty))
		*else
			*set total ((1600-total)*(1-2))
			*set total /(mc[atr]["mod"]*difficulty)
			*temp copy_temp mc[atr]["temp"]
			*set mc[atr]["temp"] - total
			*if mc[atr]["temp"] <= 0
				*set mc[atr]["temp"] 0
				*set mc_exp + (total - copy_temp)
			*set mc[atr] 1600
		*return
	*else
		*set mc[atr] + modded_value
		
		[b]🡹 +${value} $!{atr} EXP 🡹[/b]	
		
		*return




*label change_opinion
*params char value type
*temp string "characters_${char}_opinion"
*if (type = "add")
	*set value *(1 +(mc_CHR/10))
	*set {string} %+ value
*else 
	*set value *(1 - (mc_CHR/10))
	*set {string} %- value
*return

*label add_injury
*params id
*if id = 3
	
	[b][i]You are bleeding![/b][/i]]
	
	*if (precognition_enabled)
		*return
	*set injuries_3 true

*label equip_item
*params atr value
*temp total mc[atr] + value
*if total > 1600
	*temp remainder ((1600-total)*(1-2))
	*set value - remainder
*set mc[atr] +value
*set mc[atr]["temp"] + value
*return

*label disequip_item
*params atr value
*temp total (mc[atr]["temp"] - value)
*if total > 0
	*set mc[atr]["temp"] -value
	*set mc[atr] -value
*else
	*set mc[atr]["temp"] 0
	*set mc[atr] - mc[atr]["temp"]
*return